home *** CD-ROM | disk | FTP | other *** search
/ Planet Source Code Jumbo …e CD Visual Basic 1 to 7 / 5_2007-2008.ISO / data / Zips / A_Fast_Ric2064945102007.psc / SOLO SyntaxControl / modSyntax.bas < prev    next >
BASIC Source File  |  2007-05-10  |  3KB  |  64 lines
  1. Attribute VB_Name = "modSyntax"
  2. Option Explicit
  3.  
  4. ' Space surrounding each word is significant. It allows searching on whole
  5. ' words. Note that these constant declares are long and could reach the line
  6. ' length limit of 1023 characters. If so, simply split to 2 constants and
  7. ' combine into a third constant with the appropriate name.
  8.  
  9. '========================================================================================
  10. 'Modify this as you want....
  11. ' these constants are actually the syntaxes of VB/VBscript
  12. ' You Can Change its syntaxes in Any languages Like C/C++,
  13. ' Pascal, JAVA, Delphi, etc.
  14. ' EXCEPT FOR HTML TAGS
  15. 'Tip:
  16. 'if you know how to manipulate text files it is better to save this
  17. 'syntax references in a text file. and then Call/Open/Read/Write it
  18. 'using FileSystemObject or an API FSO
  19. Public Const RESERVED As String = " As Call Case Const Dim Do Each Else ElseIf Empty" & _
  20.                            " End Eqv Erase Error Exit Explicit False For" & _
  21.                            " Function If Imp In Is Loop Mod Next Not Nothing" & _
  22.                            " Null On Private Public Randomize ReDim" & _
  23.                            " Resume Select Set Step Sub Then To True Until Wend" & _
  24.                            " While Implicit String Integer" & _
  25.                            " Double Option Long Variant String"
  26. Public Const FUNC_OBJ As String = " Anchor Array Asc Atn CBool CByte CCur CDate CDbl" & _
  27.                            " Chr CInt CLng Cos CreateObject CSng CStr Date" & _
  28.                            " DateAdd DateDiff DatePart DateSerial DateValue" & _
  29.                            " Day Dictionary Document Element Err Exp" & _
  30.                            " FileSystemObject  Filter Fix Int Form" & _
  31.                            " FormatCurrency FormatDateTime FormatNumber" & _
  32.                            " FormatPercent GetObject Hex History Hour" & _
  33.                            " InputBox InStr InstrRev IsArray IsDate IsEmpty" & _
  34.                            " IsNull IsNumeric IsObject Join LBound LCase Left" & _
  35.                            " Len Link LoadPicture Location Log LTrim RTrim" & _
  36.                            " Trim Mid Minute Month MonthName MsgBox Navigator" & _
  37.                            " Now Oct Replace Right Rnd Round ScriptEngine" & _
  38.                            " ScriptEngineBuildVersion ScriptEngineMajorVersion" & _
  39.                            " ScriptEngineMinorVersion Second Sgn Sin Space Split" & _
  40.                            " Sqr StrComp String StrReverse Tan Time TextStream" & _
  41.                            " TimeSerial TimeValue TypeName UBound UCase VarType" & _
  42.                            " Weekday WeekDayName Window Year "
  43. Public Const Operators As String = " + - * / \ = % ^ # "
  44. Public Const LOperators As String = " And Or Xor True False Not Is Like "
  45.  
  46. '========================================================================================
  47.  
  48. ' This Variable symbolizes a char which splits every word
  49. ' Ex. " And Call Case If For "
  50. ' The Splitting Character is a space
  51.  
  52. ' Actualy Any character is Valid or vbCrlf
  53. ' Ex: "/And/Call/Case/If/For/"
  54. ' The Splitting Character is "/"
  55. Public Const SplittingCharacter As String = " "
  56.  
  57.   'Specifies/Indicates a Comment "'" (VB,VBScript)
  58. Public Const CommentCharacter As String = "'"
  59.   'Specifies/Indicates a String """" (VB,VBScript)
  60. Public Const StringCharacter As String = """"
  61.  
  62.  
  63.  
  64.